﻿Public Class Usuarios

    Public Function Listar() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDS As New Banco.DS.Usuarios
        lista = usuariosDS.Listar
        Return lista
    End Function

    Sub Agregar(ByVal mantenimiento As BE.Usuarios)
        Dim dsMantenimiento As New DS.Usuarios
        dsMantenimiento.Agregar(mantenimiento)
    End Sub

    Function Editar(ByVal mantenimiento As BE.Usuarios) As Boolean
        Dim dsMantenimiento As New DS.Usuarios
        Return dsMantenimiento.Editar(mantenimiento)
    End Function

    Function Estado(ByVal id As Integer, ByVal accion As Integer) As Boolean
        Dim dsMantenimiento As New DS.Usuarios
        Return dsMantenimiento.Estado(id, accion)
    End Function

    Function Obtener(ByVal id As Integer) As BE.Usuarios
        Dim dsMantenimiento As New DS.Usuarios
        Return dsMantenimiento.Obtener(id)
    End Function

    Public Function Filtrar(ByVal accion As Integer, ByVal texto As String) As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDS As New Banco.DS.Usuarios
        lista = usuariosDS.Filtrar(accion, texto)
        Return lista
    End Function

    Function Inicio(ByVal usuario As String, ByVal contrasena As String) As BE.Usuarios
        Dim dsMantenimiento As New DS.Usuarios
        Return dsMantenimiento.Inicio(usuario, contrasena)
    End Function
End Class
